procedure TForm1.Button1Click(Sender: TObject);
var 
i: Integer;
C: String;
DType: Integer;
DriveString: String;
begin
for i := 65 to 90 do
begin
C := chr(i)+':\'; //nh dang ng dan o a
DType := GetDriveType(PChar(C));
case DType of
0: DriveString := C+' cannot be determined.';
1: DriveString := C+' root directory
                                                        does not exist.';
DRIVE_REMOVABLE:
              DriveString :=C+' The drive can
                                          be removed from the drive.';
DRIVE_FIXED: 
              DriveString :=C+' The disk cannot 
                                          be removed from the drive.';
DRIVE_REMOTE: 
              DriveString :=C+' The drive is a 
                                          remote (network) drive.';
DRIVE_CDROM: 
              DriveString := C+' The drive is a 
                                                              CD-ROM drive.';
DRIVE_RAMDISK: 
             DriveString := C+' The drive is a 
                                                                    RAM disk.';
end;
if not ((DType = 0) or (DType = 1)) then
                            memo1.lines.Add(DriveString);
end;
end;
